***********************************************************************
*                                                                     *
*          NAME:  DFSIVD1I                                            *
*                                                                     *
*   DESCRIPTION:  HIDAM INDEX DBD                                     *
*                                                                     *
***********************************************************************
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7
  DBD    NAME=IVPDB1I,ACCESS=(INDEX,VSAM,PROT)                        
  DATASET DD1=DFSIVD1I,DEVICE=3380,SIZE=2048                          
  SEGM   NAME=A1,PARENT=0,BYTES=10                                    
  FIELD  NAME=(A1,SEQ,U),BYTES=010,START=00001,TYPE=C                 
  LCHILD NAME=(A1111111,IVPDB1),INDEX=A1111111                        
  DBDGEN                                                              
  FINISH                                                              
  END                     